﻿Namespace form
    Public NotInheritable Class AboutBoxFrm

        Private Sub AboutBoxFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ' 设置此窗体的标题。
            Dim ApplicationTitle As String
            If My.Application.Info.Title <> "" Then
                ApplicationTitle = My.Application.Info.Title
            Else
                ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
            End If
            Me.Text = String.Format("关于 - {0}", ApplicationTitle)
            ' 初始化“关于”对话框显示的所有文字。
            ' TODO: 在项目的“应用程序”窗格中自定义此应用程序的程序集信息 
            '    属性对话框(在“项目”菜单下)。
            Me.LabelProductName.Text = My.Application.Info.ProductName
            Me.LabelVersion.Text = String.Format("版本 {0}", My.Application.Info.Version.ToString)
            'Me.LabelCopyright.Text = My.Application.Info.Copyright
            Me.TextBoxDescription.Text = My.Application.Info.Description
        End Sub

        Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
            Me.Close()
        End Sub

        Private Sub LinkLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblLink.Click
            Try
                System.Diagnostics.Process.Start(lblLink.Tag)
            Catch ex As Exception

            End Try

        End Sub

    End Class
End Namespace


